1 REM OPEN15,8,15,"S0:[195]OMAL 64 BOOT":CLOSE15:SAVE "0:[195]OMAL 64 BOOT",8
10 PRINT "[147]"; : REM CLEAR SCREEN
20 POKE 53281,0: REM BACKGROUND BLACK
25 POKE 53280,0: REM BORDER     BLACK
27 PRINT "";   : REM PENCOLOR GREEN
30 IF A=1 THEN 90
35 OPEN 15,8,15,"U;"
40 INPUT#15,D1,A$,D2,D3
41 IF A$="OK" THEN PRINT#15,"U:":INPUT#15,D1,A$,D2,D3
43 IF "1571"=MID$(A$,14,4)THENPRINT#15,"U0>M0":CLOSE15:GOTO70
50 CLOSE15
60 IF "1541"=MID$(A$,14,4) THEN 70
61 IF "M.S.D."<>MID$(A$,1,6) THEN 100
62 PRINT "[147]LOADING ML.FASTLOAD-MSD"
63 IF A=0 THEN A=1:LOAD"ML.FASTLOAD-MSD",8,1
70 PRINT"[147]LOADING ML.SIZZLE
80 [139] A[178]0 [167] A[178]1:[147]"ML.SIZZLE",8,1
90 [158] 49152:[156]
100 [153] "LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
110 [153] " PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";
120 [153]
130 [153] "PRINTTUTORIAL: FOUNDATIONS ... WITH COMAL"
145 [153] "DOCUMENTATION: COMAL HANDBOOK
150 PRINT "NEWSLETTER: COMAL TODAY
155 [153]
160 [153] "           DEFAVAILABLE FROM:           "
165 [153] "SYS"; : [143] PENCOLOR YELLOW
170 [153] "  COMAL USERS GROUP, U.S.A., LIMITED   "
180 [153] "          6041 MONONA DRIVE            "
185 [153] "          MADISON, WI 53716
190 PRINT "[153]SEND SELF ADDRESSED STAMPED ENVELOPE"
200 PRINT "OR CALL [158]608-222-4432[153] FOR MORE INFO."
210 PRINT "" : REM PENCOLOR WHITE
230 PRINT "  COMAL PROGRAMS CAN ONLY BE EXECUTED"
240 PRINT "  AFTER THE LANGUAGE HAS BEEN LOADED."
245 PRINT "[159]"; : REM PENCOLOR CYAN
250 PRINT "COMAL PROGRAMS ON THIS DISK ARE LOADED:"
270 PRINT "   LOAD "CHR$(34)"NAME"CHR$(34)
272 PRINT "   RUN"
275 PRINT "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
280 PRINT "   BACKUP THIS DISK BEFORE YOU USE IT   [146]";
899 REM
900 REM
910 REM CHAIN"HI + <RETURN KEY>
920 [151] 198,9
930 [151] 631,[198]("C")
940 [151] 632,[198]("H")
950 [151] 633,[198]("A")
960 [151] 634,[198]("I")
970 [151] 635,[198]("N")
980 [151] 636,34
990 [151] 637,[198]("H")
1000 [151] 638,[198]("I")
1010 [151] 639,13
1020 [147] "COMAL 64 0.14",8